home *** CD-ROM | disk | FTP | other *** search
/ CyberMycha Extra 2004 January / CyberMycha Extra 1-2004 (Poland) (Disc 2).bin / Pippi / gmfg.dir / Internal_36_eating.ls < prev    next >
Encoding:
Text File  |  2001-09-03  |  546 b   |  23 lines
  1. property responsDone, responsTime
  2. global gmObject, sndObject
  3.  
  4. on beginSprite me
  5.   responsDone = 0
  6.   responsTime = sprite(me.spriteNum).member.frameCount - (sprite(me.spriteNum).member.frameCount / 4)
  7.   gmObject.belly = gmObject.belly + 1
  8. end
  9.  
  10. on exitFrame me
  11.   if responsDone = 0 then
  12.     if the mouseDown = 0 then
  13.       if sprite(me.spriteNum).frame > responsTime then
  14.         sndObject.respondSnd(2, 1, 1, 1)
  15.         responsDone = 1
  16.       end if
  17.     end if
  18.   end if
  19.   if sprite(me.spriteNum).playing = 0 then
  20.     gmObject.goBack()
  21.   end if
  22. end
  23.